W tym przyk│adzie s╣ wybierane tytu│y posiadane przez wiΩcej ni┐ jednego pracownika pracuj╣cego w regionie waszyngto±skim.
W tym przyk│adzie wywo│ywana jest procedura WyliczPola, kt≤r╣ mo┐na znaleƒµ w przyk│adzie dotycz╣cym instrukcji SELECT.
Sub HavingX()
Dim dbs As Database, rst As Recordset
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Wybierz tytu│ posiadany przez wiΩcej ni┐ jednego
' pracownika pracuj╣cego w regionie waszyngto±skim.
Set rst = dbs.OpenRecordset("SELECT Tytu│, " _
& "Count(Tytu│) as Total FROM Pracownicy " _
& "WHERE Region = 'WA' " _
& "GROUP BY Tytu│ HAVING Count(Tytu│) > 1;")
' Zape│nij obiekt Recordset.
rst.MoveLast
' Wywo│aj procedurΩ WyliczPola w celu wydrukowania
' zawarto£ci obiektu Recordset.
WyliczPola rst, 25
dbs.Close
End Sub